
 1000  *SAVE MERGE FIELDS IN A BYTE
 1010  *--------------------------------
 1020  CROUT  .EQ $FD8E
 1030  PRBYTE .EQ $FDDA
 1040  COUT   .EQ $FDED
 1050  *--------------------------------
 1060  FIELD.A    .EQ $00
 1070  FIELD.B    .EQ $01
 1080  VAL.A      .EQ $02
 1090  VAL.B      .EQ $03
 1100  MERGE.1    .EQ $04
 1110  MERGE.2    .EQ $05
 1120  *--------------------------------
 1130  T
 1140  *---FOR FIELD= 80,7F TO 7F,80----
 1150         LDA #$7F     DEFINE FIELDS AS 1,7
 1160         STA FIELD.B
 1170         LDA #$80
 1180         STA FIELD.A
 1190  *---FOR A=0 TO MAX VAL-----------
 1200  .1     LDA #0
 1210         STA VAL.A
 1220         JSR CROUT
 1230         LDA FIELD.A
 1240         JSR PRBYTESP
 1250         LDA FIELD.B
 1260         JSR PRBYTE
 1270  *---FOR B=0 TO MAX VAL-----------
 1280  .2     LDA #0
 1290         STA VAL.B
 1300   
 1310  *---MERGE FIRST METHOD-----------
 1320  .3     LDA VAL.A
 1330         AND FIELD.A
 1340         STA MERGE.1
 1350         LDA VAL.B
 1360         AND FIELD.B
 1370         ORA MERGE.1
 1380         STA MERGE.1
 1390   
 1400  *---MERGE SECOND METHOD----------
 1410         LDA VAL.A
 1420         EOR VAL.B
 1430         AND FIELD.B
 1440         EOR VAL.A
 1450         STA MERGE.2
 1460    
 1470  *---PRINT RESULTS, IF NOT EQUAL--
 1480         CMP MERGE.1
 1490         BEQ .4
 1500         JSR CROUT
 1510         LDA FIELD.A
 1520         JSR PRBYTESP
 1530         LDA VAL.A
 1540         JSR PRBYTESP
 1550         LDA VAL.B
 1560         JSR PRBYTESP
 1570         LDA MERGE.1
 1580         JSR PRBYTESP
 1590         LDA MERGE.2
 1600         JSR PRBYTE
 1610         JSR PAUSE
 1620  *---NEXT B-----------------------
 1630  .4     INC VAL.B
 1640         BNE .3
 1650  *---NEXT A-----------------------
 1660         INC VAL.A
 1670         BNE .2 
 1680  *---NEXT FIELD-------------------
 1690         SEC
 1700         ROR FIELD.A
 1710         LSR FIELD.B
 1720         BNE .1       CONTINUE
 1730         RTS          FINISHED
 1740  *--------------------------------
 1750  PRBYTESP
 1760         JSR PRBYTE
 1770         LDA #$A0
 1780         JMP COUT
 1790  *--------------------------------
 1800  PAUSE  LDA $C000
 1810         BPL .3
 1820         STA $C010
 1830         CMP #$8D
 1840         BNE .2
 1850  .1     PLA
 1860         PLA
 1870         RTS
 1880  .2     LDA $C000
 1890         BPL .2
 1900         STA $C010
 1910         CMP #$8D
 1920         BEQ .1
 1930  .3     RTS
 1940  *--------------------------------

